﻿Imports DTO
Imports DAO

Public Class PhongBus
    Public Function TimKiem(ByVal pCrt As PhongCrt) As DataTable
        Dim dt As DataTable
        Dim pDao As New PhongDao()
        dt = pDao.TimKiem(pCrt)
        Return dt
    End Function
    Public Function LayDanhSach() As IList
        'Kiem tra business rule neu co
        Dim phongDao As New PhongDao()
        Dim ds As IList
        ds = phongDao.LayDSPhong()
        Return ds
    End Function
    Public Function ThemPhong(ByVal phongDto As PhongDto)
        'Kiem tra business rule neu co
        'Dim phongDao = New PhongDao()
        'phongDao.ThemPhong(phongDto)

    End Function

    Public Function TryVan(ByVal sql As String) As DataTable

        'Dim da As New OleDbDataAdapter(CauLenh, conn)
        Dim DpDao As New DataProvider()
        Dim dt As New DataTable
        dt = DpDao.TryVan(sql)
        Return dt
    End Function

End Class
